home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / database / bdem22.zip / BUILDER.CH < prev    next >
Text File  |  1994-10-06  |  19KB  |  403 lines
  1. /*
  2. ..............................................................................
  3. .                                                                            .
  4. .  Aeolus Builder v2.2 System Constants                                      .
  5. .       (c) Copyright 1994, All Rights Reserved                              .
  6. .                                                                            .
  7. ..............................................................................
  8. */
  9.  
  10.  
  11.  
  12. #ifndef TRUE
  13.   #define   TRUE     .T.
  14. #endif
  15. #ifndef FALSE
  16.   #define   FALSE    .F.
  17. #endif
  18.  
  19.  
  20.  
  21. /***
  22. *  Window Style Manifest Constants
  23. *
  24. */
  25. #define      W_DOUBLE                     "=="
  26. #define      W_SINGLE                     "--"
  27. #define      W_DOUBLE_SINGLE              "=-"
  28. #define      W_SINGLE_DOUBLE              "-="
  29. #define      W_3D_PLUS                    "3+"
  30. #define      W_3D_MINUS                   "3-"
  31.  
  32. /***
  33. *  I/O Control Manifest Constants
  34. *
  35. */
  36. #define NETWORK             1       // Network logical
  37. #define XPLODE              2       // Exploding windows logical
  38.  
  39. /***
  40. *  Color Variable Array Element Numbers
  41. *
  42. */
  43. #define WREV_CLR_           3
  44. #define WGET_CLR_           4
  45. #define WMSG_CLR_           5
  46. #define WERR_CLR_           6
  47. #define WNDW_CLR_           7
  48.  
  49. #define HDR_CLR_            8
  50. #define HDR_MSG_            9
  51.  
  52. #define BREV_CLR_          10
  53. #define BGET_CLR_          11
  54. #define BKGD_CLR_          12
  55. #define BMSG_CLR_          13
  56. #define BERR_CLR_          14
  57.  
  58. #define WNDW2_CLR_         15
  59. #define WMSG2_CLR_         16
  60.  
  61. #define SHDW_CLR_          17
  62. #define ERR_CLR_           18
  63. #define MSG_CLR_           19
  64. #define HELP_CLR_          20
  65.  
  66. #define BRWS_CLR_          24
  67. #define BRWS_REV_          25
  68. #define BRWS_HL1_          26
  69. #define BRWS_HR1_          27
  70. #define BRWS_HL2_          28
  71. #define BRWS_HR2_          29
  72. #define MENU_CLR_          31
  73. #define MENU_REV_          32
  74. #define HLGT_CLR_          33
  75.  
  76. // Internals--Used by Builder.Lib Functions
  77. #define LRKEYS             21         // Left Right Menu Scrolling Logical
  78. #define INGETSYS           22         // Get System Active Logical
  79. #define WNDW_STYLE         23
  80. #define GETGOTO_           34
  81. #define COLGOTO_           35
  82. #define MOUSE_DRIVER       36
  83. #define MPADS             999         // Dummy to use the mPads Static Array
  84.  
  85.  
  86. /*
  87. ..............................................................................
  88. .                                                                            .
  89. .  Aeolus Builder User Defined Commands                                      .
  90. .                                                                            .
  91. .  @..GET.       Same as with Clipper with the addition of the VALIDBLOCK.   .
  92. .                READER, and AS MENU clauses.                                .
  93. .                                                                            .
  94. .  @..ABPROMPT.  Similar to Clipper's @..PROMPT except this calls the        .
  95. .                Aeolus Function Library 'AddPrompt()' function.             .
  96. .                                                                            .
  97. .  @..WINGET     Same as Builder @..GET except it will display use WinTop()  .
  98. .                and WinLeft()                                               .
  99. .                                                                            .
  100. .  @..WINSAY     Same as Clipper @..SAY except it will display use WinTop()  .
  101. .                and WinLeft()                                               .
  102. .                                                                            .
  103. .  @..WINPROMPT  Same as Builder @..ABPROMPT except it will display use      .
  104. .                WinTop() and WinLeft()                                      .
  105. .                                                                            .
  106. .  @..WINDOW     Displays a window on the screen.                            .
  107. .                                                                            .
  108. .  WINDOW REMOVE Removes a window from the screen and restores screen  area  .
  109. .                to its previous contents                                    .
  110. ..............................................................................
  111. */
  112.  
  113. #define     MENU_READER(Var,Row,Col,Array) ;
  114.               {|oGet|AbMenu(CrteMnuArry(Row,Col,Array),Var,oGet,oGet==NIL)}
  115.  
  116. #define     ABMEMBLOCK( v )           {|x|IF(x==NIL,v,v:=x)}
  117.  
  118. #define     DROPDOWN(Var,Row,Col,Array) ;
  119.               {|oGet|AbDrpDwn(Row,Col,Array,Var,oGet,oGet==NIL)}
  120.  
  121. /***
  122. *  @..GET  command for use with the Aeolus Builder
  123. */
  124.  
  125. #command @ <row>, <col> GET <var>                                       ;
  126.                         [PICTURE <pic>]                                 ;
  127.                         [VALID <valid>]                                 ;
  128.                         [WHEN <when>]                                   ;
  129.                         [VALIDBLOCK <validblk>]                         ;
  130.                         [READER <readerblk>]                            ;
  131.                         [SEND <msg>]                                    ;
  132.                                                                         ;
  133.       => AbAddGet( <row>, <col>, ABMEMBLOCK( <var> ), <"var">,          ;
  134.                    <pic>, <validblk>, <{when}>, <readerblk>, GetList )
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142. // @..GET..MENU USING (preprocessed to @..GET..READER)
  143.  
  144. #command @ <row>, <col> GET <var>                                       ;
  145.                         [<clauses,...>]                                 ;
  146.                         MENU USING <array>                              ;
  147.                         [<moreClauses,...>]                             ;
  148.                                                                         ;
  149.       => @ <row>, <col> GET <var>                                       ;
  150.                         [<clauses>]                                     ;
  151.                         READER MENU_READER(<var>,<row>,<col>,<array>)   ;
  152.                         [<moreClauses>]
  153.  
  154.  
  155.  
  156.  
  157. // @..GET..DROPDOWN USING (preprocessed to @..GET..READER)
  158.  
  159. #command @ <row>, <col> GET <var>                                       ;
  160.                         [<clauses,...>]                                 ;
  161.                         DROPDOWN USING <array>                          ;
  162.                         [<moreClauses,...>]                             ;
  163.                                                                         ;
  164.       => @ <row>, <col> GET <var>                                       ;
  165.                         [<clauses>]                                     ;
  166.                         READER DROPDOWN(<var>,<row>,<col>,<array>)      ;
  167.                         [<moreClauses>]
  168.  
  169.  
  170.  
  171.  
  172. /***
  173. *  @..ABPROMPT
  174. *
  175. */
  176.  
  177. #command @ <row>, <col> ABPROMPT <text>                                 ;
  178.                         TO <array>                                      ;
  179.                        [EXECUTE <exec>]                                 ;
  180.                        [WHEN <when>]                                    ;
  181.                        [MESSAGE <msg>                                   ;
  182.                         AT <mrow>, <mcol>]                              ;
  183.          => AddPrompt( <array>, <row>, <col>, <text>, <{exec}>,         ;
  184.                <mrow>, <mcol>, <msg>, <{when}> )                        ;
  185.  
  186.  
  187.  
  188. /***
  189. *  @..WINGET
  190. *
  191. *  Adds WinTop() and WinLeft() to screen coordinates then calls the
  192. *  regular Clipper GET
  193. *
  194. */
  195. #xcommand @ <row>, <col> WINGET <var>                                   ;
  196.                         [<getclauses,...>]                              ;
  197.                                                                         ;
  198.       => @ WinTop()+<row>, WinLeft()+<col> GET <var>                    ;
  199.                         [<getclauses>]                                  ;
  200.  
  201.  
  202.  
  203. /***
  204. *  @..WINSAY
  205. *
  206. *  Adds WinTop() and WinLeft() to screen coordinates then calls the
  207. *  regular Clipper SAY
  208. *
  209. */
  210. #xcommand @ <row>, <col> WINSAY <xpr>                                   ;
  211.                         [<sayclauses,...>]                              ;
  212.                                                                         ;
  213.       => @ WinTop()+<row>, WinLeft()+<col> SAY <xpr>                    ;
  214.                         [<sayclauses>]                                  ;
  215.  
  216.  
  217.  
  218. /***
  219. *  @..WINPROMPT
  220. *
  221. */
  222.  
  223. #command @ <row>, <col> WINROMPT [<promptclauses,...>]                  ;
  224.                                                                         ;
  225.          => @ WinTop()+<row>, WinLeft()+<col> ABPROMPT                  ;
  226.                        [<promptclauses>]                                ;
  227.  
  228.  
  229.  
  230. /***
  231. *  @..WINDOW
  232. */
  233. #xcommand @ <top>, <left>, <bottom>, <right> WINDOW                     ;
  234.                                [<nsv: NOSAVE>]                          ;
  235.                                [<ncl: NOCLEAR>]                         ;
  236.                                [<nsh: NOSHADOW>]                        ;
  237.                                [<nbr: NOBORDER>]                        ;
  238.                                [STYLE <wintype>]                        ;
  239.                                [COLOR <color>]                          ;
  240.                                                                         ;
  241.       => WinPush(                                                       ;
  242.                   <top>, <left>, <bottom>, <right>, !<.nsv.>,           ;
  243.                   !<.ncl.>, !<.nbr.>, !<.nsh.>, <wintype>, <color> )
  244.  
  245.  
  246. /***
  247. *  WINDOW REMOVE
  248. */
  249. #xcommand WINDOW REMOVE        => WinPop()
  250.  
  251.  
  252.  
  253. /***
  254. *  @..WINPROMPT
  255. */
  256. #xcommand @ <row>, <col> WINPROMPT                                      ;
  257.                          [<promptclauses,...>]                          ;
  258.                                                                         ;
  259.       => @ WinTop()+<row>, WinLeft()+<col> ABPROMPT                     ;
  260.                          [<promptclauses>]
  261.  
  262. /*
  263. ..............................................................................
  264. .                                                                            .
  265. .        The following #xtranslate directives convert Builder.lib            .
  266. .        function calls from their generic names to the names as             .
  267. .        they appear in the Builder.lib library.  All the Builder            .
  268. .        functions in the Builder.lib library are prefixed with              .
  269. .        the letters 'Ab'.  This does two things, one makes the              .
  270. .        function names unique, two makes the function names                 .
  271. .        unreadable.                                                         .
  272. .                                                                            .
  273. .        The source code generated by the Builder.exe code gen-              .
  274. .        erator will create function calls that DO NOT have the              .
  275. .        'Ab' prefix characters.  The xtranslate directives here             .
  276. .        will convert them (check your .ppo) to their actual                 .
  277. .        names.                                                              .
  278. .                                                                            .
  279. .        See the file LIBC5X.DOC for information functions names.            .
  280. .                                                                            .
  281. ..............................................................................
  282. */
  283.  
  284. // Builder.lib functions
  285. #xtranslate Add_Rec([<args,...>])         => AbAdd_Rec([<args>])
  286. #xtranslate AddGet([<args,...>])          => AbAddGet([<args>])
  287. #xtranslate AddMPad([<args,...>])         => AbAddMPad([<args>])
  288. #xtranslate AddPrompt([<args,...>])       => AbAddPrompt([<args>])
  289. #xtranslate APop([<args,...>])            => AbAPop([<args>])
  290. #xtranslate Asc2Bin([<args,...>])         => AbAsc2Bin([<args>])
  291. #xtranslate Ask([<args,...>])             => AbAsk([<args>])
  292. #xtranslate AskMenu([<args,...>])         => AbAskMenu([<args>])
  293. #xtranslate BChoice([<args,...>])         => AbBChoice([<args>])
  294. #xtranslate Between([<args,...>])         => AbBetween([<args>])
  295. #xtranslate BldrErr([<args,...>])         => AbBldrErr([<args>])
  296. #xtranslate BrowseDb([<args,...>])        => AbBrowseDb([<args>])
  297. #xtranslate Browser([<args,...>])         => AbBrowser([<args>])
  298. #xtranslate BrwMouse([<args,...>])        => AbBrwMouse([<args>])
  299. #xtranslate Center([<args,...>])          => AbCenter([<args>])
  300. #xtranslate ChkChr([<args,...>])          => AbChkChr([<args>])
  301. #xtranslate CkPrtr([<args,...>])          => AbCkPrtr([<args>])
  302. #xtranslate CrteMnuArry([<args,...>])     => AbCrteMnuArry([<args>])
  303. #xtranslate DbChanged([<args,...>])       => AbDbChanged([<args>])
  304. #xtranslate DbRepl([<args,...>])          => AbDbRepl([<args>])
  305. #xtranslate DbState([<args,...>])         => AbDbState([<args>])
  306. #xtranslate DbStor([<args,...>])          => AbDbStor([<args>])
  307. #xtranslate Dec2Hex([<args,...>])         => AbDec2Hex([<args>])
  308. #xtranslate DelColPut([<args,...>])       => AbDelColPut([<args>])
  309. #xtranslate DelMPad([<args,...>])         => AbDelMPad([<args>])
  310. #xtranslate DictPut([<args,...>])         => AbDictPut([<args>])
  311. #xtranslate DictGet([<args,...>])         => AbDictGet([<args>])
  312. #xtranslate DupChk([<args,...>])          => AbDupChk([<args>])
  313. #xtranslate Edt_Memo([<args,...>])        => AbEdt_Memo([<args>])
  314. #xtranslate ErrTone([<args,...>])         => AbErrTone([<args>])
  315. #xtranslate Etc([<args,...>])             => AbEtc([<args>])
  316. #xtranslate FEof([<args,...>])            => AbFEof([<args>])
  317. #xtranslate FGets([<args,...>])           => AbFGets([<args>])
  318. #xtranslate FGetsR([<args,...>])          => AbFGetsR([<args>])
  319. #xtranslate Fil_Lock([<args,...>])        => AbFil_Lock([<args>])
  320. #xtranslate Fld_Repl([<args,...>])        => AbFld_Repl([<args>])
  321. #xtranslate Gen_Maint([<args,...>])       => AbGen_Maint([<args>])
  322. #xtranslate GenVld([<args,...>])          => AbGenVld([<args>])
  323. #xtranslate GetEdit([<args,...>])         => AbGetEdit([<args>])
  324. #xtranslate GetJump([<args,...>])         => AbGetJump([<args>])
  325. #xtranslate Got([<args,...>])             => AbGot([<args>])
  326. #xtranslate Hex2Dec([<args,...>])         => AbHex2Dec([<args>])
  327. #xtranslate Ibar([<args,...>])            => AbIbar([<args>])
  328. #xtranslate In_Canada([<args,...>])       => AbIn_Canada([<args>])
  329. #xtranslate In_USA([<args,...>])          => AbIn_USA([<args>])
  330. #xtranslate InFile([<args,...>])          => AbInFile([<args>])
  331. #xtranslate InPath([<args,...>])          => AbInPath([<args>])
  332. #xtranslate ISeek([<args,...>])           => AbISeek([<args>])
  333. #xtranslate Kybd([<args,...>])            => AbKybd([<args>])
  334. #xtranslate Make_Empty([<args,...>])      => AbMake_Empty([<args>])
  335. #xtranslate MaxHndls([<args,...>])        => AbMaxHndls([<args>])
  336. #xtranslate MemFunc([<args,...>])         => AbMemFunc([<args>])
  337. #xtranslate Menu([<args,...>])            => AbMenu([<args>])
  338. #xtranslate Message([<args,...>])         => AbMessage([<args>])
  339. #xtranslate MGetRowCol([<args,...>])      => AbMgetRowCol([<args>])
  340. #xtranslate MMaxCol([<args,...>])         => AbMMaxCol([<args>])
  341. #xtranslate MMaxRow([<args,...>])         => AbMMaxRow([<args>])
  342. #xtranslate MousCrs([<args,...>])         => AbMousCrs([<args>])
  343. #xtranslate MousedGet([<args,...>])       => AbMousedGet([<args>])
  344. #xtranslate MouseInit([<args,...>])       => AbMouseInit([<args>])
  345. #xtranslate MReset([<args,...>])          => AbMReset([<args>])
  346. #xtranslate MSetRowCol([<args,...>])      => AbMSetRowCol([<args>])
  347. #xtranslate MsgBox([<args,...>])          => AbMsgBox([<args>])
  348. #xtranslate MStart([<args,...>])          => AbMStart([<args>])
  349. #xtranslate Net_Use([<args,...>])         => AbNet_Use([<args>])
  350. #xtranslate Not_Req([<args,...>])         => AbNot_Req([<args>])
  351. #xtranslate Numeric([<args,...>])         => AbNumeric([<args>])
  352. #xtranslate Open_Fil([<args,...>])        => AbOpen_Fil([<args>])
  353. #xtranslate PckVld([<args,...>])          => AbPckVld([<args>])
  354. #xtranslate Pdisp([<args,...>])           => AbPdisp([<args>])
  355. #xtranslate Plist([<args,...>])           => AbPlist([<args>])
  356. #xtranslate Publ_Colo([<args,...>])       => AbPubl_Colo([<args>])
  357. #xtranslate Putkey([<args,...>])          => AbPutkey([<args>])
  358. #xtranslate ReadGets([<args,...>])        => AbReadGets([<args>])
  359. #xtranslate Rec_Lock([<args,...>])        => AbRec_Lock([<args>])
  360. #xtranslate Rel_Maint([<args,...>])       => AbRel_Maint([<args>])
  361. #xtranslate Req([<args,...>])             => AbReq([<args>])
  362. #xtranslate Rght_Jst([<args,...>])        => AbRght_Jst([<args>])
  363. #xtranslate Save_It([<args,...>])         => AbSave_It([<args>])
  364. #xtranslate SetMsgLin([<args,...>])       => AbSetMsgLin([<args>])
  365. #xtranslate Shadow([<args,...>])          => AbShadow([<args>])
  366. #xtranslate Show_Memo([<args,...>])       => AbShow_Memo([<args>])
  367. #xtranslate Show_Txt([<args,...>])        => AbShow_Txt([<args>])
  368. #xtranslate TextView([<args,...>])        => AbTextView([<args>])
  369. #xtranslate Thermometr([<args,...>])      => AbThermometr([<args>])
  370. #xtranslate TtlKeyOff([<args,...>])       => AbTtlKeyOff([<args>])
  371. #xtranslate TtlKeyOn([<args,...>])        => AbTtlKeyOn([<args>])
  372. #xtranslate Var([<args,...>])             => AbVar([<args>])
  373. #xtranslate VarInit([<args,...>])         => AbVarInit([<args>])
  374. #xtranslate VarPop([<args,...>])          => AbVarPop([<args>])
  375. #xtranslate VarPush([<args,...>])         => AbVarPush([<args>])
  376. #xtranslate Waitkey([<args,...>])         => AbWaitkey([<args>])
  377. #xtranslate WinBott([<args,...>])         => AbWinBott([<args>])
  378. #xtranslate WinLeft([<args,...>])         => AbWinLeft([<args>])
  379. #xtranslate WinPop([<args,...>])          => AbWinPop([<args>])
  380. #xtranslate WinRight([<args,...>])        => AbWinRight([<args>])
  381. #xtranslate WinStyle([<args,...>])        => AbWinStyle([<args>])
  382. #xtranslate WinTop([<args,...>])          => AbWinTop([<args>])
  383. #xtranslate WinPush([<args,...>])         => AbWinPush([<args>])
  384. #xtranslate Zap_Ibar([<args,...>])        => AbZap_Ibar([<args>])
  385. #xtranslate ZapMPads([<args,...>])        => AbZapMPads([<args>])
  386.  
  387. // BldrAsm.lib functions
  388. #xtranslate ChgDir([<args,...>])          => AbChgDir([<args>])
  389. #xtranslate ChgDsk([<args,...>])          => AbChgDsk([<args>])
  390. #xtranslate DrvTst([<args,...>])          => AbDrvTst([<args>])
  391. #xtranslate Hndls([<args,...>])           => AbHndls([<args>])
  392. #xtranslate IoCtl([<args,...>])           => AbIoCtl([<args>])
  393. #xtranslate MakDir([<args,...>])          => AbMakDir([<args>])
  394. #xtranslate MouseInt([<args,...>])        => AbMouseInt([<args>])
  395. #xtranslate SetMouse([<args,...>])        => AbSetMouse([<args>])
  396. #xtranslate Timeout([<args,...>])         => AbTimeout([<args>])
  397.  
  398.  
  399.  
  400. #stdout Aeolus Builder Application Generator is Copyright (c) 1994
  401.  
  402. // end of file Builder.ch
  403.